home *** CD-ROM | disk | FTP | other *** search
/ Interactive Guide to Growth Related Diseases / Interactive Guide to Growth Related Diseases (Hill's Pet Nutrition)(2000).BIN / Hills / UKCASES.dir / 00001_Script_1 next >
Text File  |  2000-11-02  |  2KB  |  109 lines
  1. on startMovie
  2.       
  3. end startMovie
  4.  
  5.  
  6. on QuitPres
  7.   
  8.   global myWindow
  9.   if objectP(myWindow) then 
  10.     forget myWindow
  11.   end if
  12.   set horzOrigin to the stageLeft + 168
  13.   set vertOrigin to the stageTop + 188
  14.  
  15.   set myWindowRect to rect(horzOrigin, vertOrigin, horzOrigin + 304, vertOrigin + 104)
  16.   set myWindow to window "ukquit"
  17.   set the rect of myWindow to myWindowRect
  18.   set the fileName of myWindow to "UKQUIT.DIR"
  19.   set the titleVisible of myWindow to FALSE 
  20.   set the windowType of myWindow to 2
  21.   open myWindow
  22.   moveToFront myWindow
  23. end QuitPres
  24.  
  25. on QuitPresES
  26.   
  27.   global myWindow
  28.   if objectP(myWindow) then 
  29.     forget myWindow
  30.   end if
  31.   set horzOrigin to the stageLeft + 168
  32.   set vertOrigin to the stageTop + 188
  33.  
  34.   set myWindowRect to rect(horzOrigin, vertOrigin, horzOrigin + 304, vertOrigin + 104)
  35.   set myWindow to window "esquit"
  36.   set the rect of myWindow to myWindowRect
  37.   set the fileName of myWindow to "ESQUIT.DIR"
  38.   set the titleVisible of myWindow to FALSE 
  39.   set the windowType of myWindow to 2
  40.   open myWindow
  41.   moveToFront myWindow
  42. end QuitPresES
  43.  
  44. on QuitPresD
  45.   
  46.   global myWindow
  47.   if objectP(myWindow) then 
  48.     forget myWindow
  49.   end if
  50.   set horzOrigin to the stageLeft + 168
  51.   set vertOrigin to the stageTop + 188
  52.  
  53.   set myWindowRect to rect(horzOrigin, vertOrigin, horzOrigin + 304, vertOrigin + 104)
  54.   set myWindow to window "dquit"
  55.   set the rect of myWindow to myWindowRect
  56.   set the fileName of myWindow to "DQUIT.DIR"
  57.   set the titleVisible of myWindow to FALSE 
  58.   set the windowType of myWindow to 2
  59.   open myWindow
  60.   moveToFront myWindow
  61. end QuitPresD
  62.  
  63. on QuitPresF
  64.   
  65.   global myWindow
  66.   if objectP(myWindow) then 
  67.     forget myWindow
  68.   end if
  69.   set horzOrigin to the stageLeft + 168
  70.   set vertOrigin to the stageTop + 188
  71.  
  72.   set myWindowRect to rect(horzOrigin, vertOrigin, horzOrigin + 304, vertOrigin + 104)
  73.   set myWindow to window "fquit"
  74.   set the rect of myWindow to myWindowRect
  75.   set the fileName of myWindow to "FQUIT.DIR"
  76.   set the titleVisible of myWindow to FALSE 
  77.   set the windowType of myWindow to 2
  78.   open myWindow
  79.   moveToFront myWindow
  80. end QuitPresF
  81.  
  82. on click
  83.   
  84.   puppetSound "Keyboard Type Sngl1"
  85.   
  86. end click
  87.  
  88.  
  89. on paperSound
  90.   
  91.   puppetSound "paper"
  92.   
  93. end paperSound
  94.  
  95.  
  96. on puppetsfalse
  97.   
  98.   set the puppet of sprite (15) to FALSE
  99.   set the puppet of sprite (18) to FALSE
  100.   
  101. end puppetsfalse
  102.  
  103.  
  104. on stopMovie
  105.   
  106. end stopMovie
  107.  
  108.  
  109.